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V7d® man in Basis 



Basic-Interpreter sind im allgemeinen nur für den Umgang mit 
Dezimalzahlen ausgelegt. Häufig kommt es aber vor, daß der 
Zustand einzelner Bits oder das hexadezimale Äquivalent eines 
Bitmusters interessiert. Hier lassen sich die booleschen Operatio- 
nen vorteilhaft einsetzen. Elegante Programmiervorschläge fin- 
den Sie in diesem Beitrag. 


Stellt man einem Programmierer die 
Aufgabe, eine Dezimalzahl in eine binä- 
re zu konvertieren und das Ergebnis als 
Bitmuster auszudrucken, so erinnert 
sich mancher sofort seiner mathemati- 
schen Grundausbildung, und es entsteht 
ein Programm nach dem Prinzip der 
fortlaufenden Division. Das Ergebnis ist 
eine recht lange und gerade für Basic- 
Interpreter zeitintensive Routine. 

1. In der Praxis benötigt man nur Kon- 
versionen < 2 ’* (Adreßbusbreite = 16). 

2. Im lnteger-Format wird eine Zahl di- 
rekt in zwei Bytes gespeichert. 

3. Da in diesem Format im 2er-Komple- 
ment gearbeitet wird und das MSB 
des höherwertigen Bytes als Vorzei- 
chen dient (gesetzt & negativ), ist die 
größte darstellbare Zahl 

2 IS -1 =32767, 

entsprechend die kleinste -32768. 

D. h., sofern man sich innerhalb dieser 
Grenzen bewegt, steht das gesuchte Bit- 
muster bereits im Arbeitsspeicher. Es 
liegt also nahe, das Muster direkt aufzu- 
spüren 

Dies ist beim TRS-80, PET, CBM oder 
allgemein in Microsoft-Basic kein Pro- 
blem. Hier lassen nämlich die logischen 
Operatoren AND und OR nicht nur Ver- 
gleiche der Form „IF A = B AND C=D 
THEN..." zu, sondern auch den Ver- 
gleich Bit für Bit nach der UND- bzw. 
ODER-Funktion. Bei Maschinen der obe- 
ren Preisklasse (z. B. TEK 4051/52) ist 
das eher die Ausnahme. Diese Rechner 
reduzieren vorab die Argumente der 
Operation auf 0 oder 1 (Grenze 0,5), an- 
dere bieten zusätzliche Befehle wie 
BINAND und BIN’OR. 

Ob eine Maschine UND bitweise berar- 
beitet, ist leicht festzustellen. Geben Sie 
ein: PRINT 3 AND 7 


Das Ergebnis sollte 3 sein, weil 
dezimal 3 = binär 011 
AND 7 = binär 111 

ergibt 011 = dezimal 3 

Die UND-Funktion an sich ist einem Ele- 
troniker geläufig, doch nicht jeder ist 
Assembler-Programmierer. Deshalb fol- 
gende Erläuterung: Nehmen wir an, man 
verknüpft folgende Werte: 

0 11 0 0 1 
AND 0 1 0 AND 0 1 0 

= 010 =000 
Die jeweils erste Zeile ist das zu testende 
Bitmuster, die jeweils zweite nennt man 
Maske. In diesem Beispiel wird das 
zweite Bit maskiert. Danach ist das Er- 
gebnis 0 oder 1 am zu prüfenden Bit je 
nachdem, ob es gesetzt war oder nicht. 


10 INPUT "DEZ I MAL ZAHL" « D 
20 FOR 1-7 TO 0 STEP-1 
30 PRINTSGNtD AND 2+1)1 

60 NEXTI 

50 PRINTiGOTO 10 

Bild 1. Umwandlung einer Dezimal- 
zahl < 255 in ein Binarmuster 


10 1NPUT “DEZ II"! AL ZAHL" 1 1) 

11 X = INT<D/256> i GOSUB 20 

12 X=D-25£«X I GOSUB 20 

13 PRINT 1GOTO 10 

20 FOR 1=7 TO 0 STEP-1 
30 PRINTSGN< X AND 2+1)1 

60 NEXTI 
50 RETURN 

Bild 2. Umsetzung einer Dezimal- 
zahl < 65535 in ein Binärmuster 


10 INPUT" B I NAER-MUSTER" I B* 

20 L-LEN(BS) : D=0 

30 FOR 1-1 TO L 

60 A-VAL(nlDS(B*. I. 1) > 

50 D=D+A*2+<L-I) 

E0 NEXTI 

70 PRINTD ! GOTO 10 

Bild 3. Ein Binärmuster, das als String 
B$ vorliegt, wird in eine Dezimalzahl 
umgesetzt 


Numeriert man in einem Byte von 8 Bit 
Länge die Bits von rechts nach links, 
beginnend bei 0 und endend bei 7, so 
repräsentiert die „Nummer“ als Expo- 
nent zur Basis 2 den Stellenwert. D. h. 
um zu prüfen, ob Bit 3 gesetzt ist, muß 
man nur mit 2 3 =8 UND- verknüpfen oder 
allgemein für Bit n mit 2 n . 

Genau diesen Effekt nutzt das Basic-Pro- 
gramm in Bild 1 aus. Der richtigen 
Schreibweise wegen beginnt es aller- 
dings bei Bit 7. Ist Bit 7 gesetzt, ist das 
Ergebnis 2 7 = 128; 0 wenn es nicht gesetzt 
ist. Nun, wir wollen nicht 128 angezeigt 
bekommen, sondern 1 oder allgemein 
für jedes gesetzte Bit n nicht 2", sondern 

1. Dies läßt sich in Basic leicht mit der 
SGN-Funktion realisieren. 

Rein theoretisch ist das Verfahren für 
Zahlen bis 2 IS - 1 = 32767 gut, man könn- 
te also die Schleife auch bei 14 beginnen 
lassen. Dies funktioniert beim CBM ein- 
wandfrei, beim TRS-80 nicht. Zumin- 
dest das Gerät des Autors beginnt ab 2” 
unkorrekte Ergebnisse zu liefern. 
Eingangs wurde von 2 16 gesprochen, und 
das überfordert bei dieser Lösung auch 
den CBM. Deshalb die Lösung nach Bild 

2. Die Dezimalzahl wird in zwei Bytes 
zerlegt: das Programm aus Bild 1, zum 
Unterprogramm ernannt, wird zweimal 
durchlaufen. Mit der Variablen X in Zei- 
le 11/12 wird erst das höher- dann das 
niederwertige Byte übergeben. 

Eine Dezimalzahl wird 
in zwei Bytes zerlegt 

Genau genommen ist eine Dezimalzahl 
in zwei andere zu zerlegen, so daß die 
eine dem Dezimahlwert des höherwerti- 
gen, die andere dem des niederwertigen 
Bytes der rechnerinternen 2-Byte-Dar- 
stellung entspricht. Die Aufgabe steht 
immer an, wenn Basic die Startadresse 
eines Maschinenprogramms in den da- 
für vorgesehenen Sprungvektor laden 
muß. 

Da hierbei häufig recht umständliche 
Wege gegangen werden, kurz die zwei 
einfachsten Lösungen: 

1 . Ist die Startadresse S ^ 32767 und soll 
das niederwertige Byte nach 16526, 
das höherwertige nach 16527 (USR- 
Vektor des TRS-80), dann reicht: 

10 POKE 16526, S AND 255:POKE 
16527, INT (S/256) 

Beim ersten POKE-Befehl wird mit 
der Maske 000000001 1111111 = 255 
das höherwertige Byte ausgeblendet. 
Die Division durch 256 im zweiten 
POKE-Befehl resultiert aus folgender 
Überlegung: Im niederwertigen Byte 
gelten die Stellenwerte 2° bis 2 7 , im 
höherwertigen Byte 2® bis 2 15 . D. h. 
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zwei Bits auf jeweils gleicher Stelle in 
diesen beiden Bytes unterscheiden 
sich immer durch 2 a = 256.Bei glei- 
chem Inhalt ist das höherwertige Byte 
um den Faktor 256 größer, folglich 
muß der ganzzahlige Quotient der 
Zahl dividiert durch 256 im höher- 
wertigen Byte stehen. 

2. Ist die Startadresse S > 32767, scheitert 
AND an den Grenzen der 2er-Komple- 
ment-Darstellung. Deshalb wird zu- 
erst das Dezimaläquivalent des höher- 
wertigen Bytes errechnet und dann als 
der verbleibende Rest das niederwer- 
tigen Byte, also: 

10 H = lNT(S/256) L=S-256H 
20 POKE 16526.L : POKE 16527, H 

Binär/Dezimal-Umsetzung 

tmeint ist hier die Übersetzung eines 
"fütmusters von Nullen und Einsen in 
eine Dezimalzahl. Die Lösung von Bild 3 
ist einfach. Das Bitmuster steht im String 
B$. In der Schleife wird mit Hilfe der 
MID$-Funktion (in anderen Basic-Versio- 
nen SEG) bitweise aufgelöst. 

Da die Substrings lediglich die ASCII- 
Zeichen von 0 und 1 repräsentieren, 
werden sie mit Hilfe der VAL-Funktion 
umgewandelt. Zeile 50: Die Länge des 
String minus Laufindex der Schleife 
(L-I) ist der Exponent zur Basis 2, der mit 
dem Stelleninhalt A multipliziert wird. 
Das Produkt wird jeweils zu D addiert. 

Zahlen beliebiger Basis 
dezimal dargestellt 

Die Routine in Bild 3 ist die Basis für die 
Universallösung in Bild 4. Die Value- 
^unktion in Zeile 40 erlaubt keine größe- 
l >w« Basis als 9. Deshalb wurde sie durch 
die ASCll-Funktion (ASC) ersetzt. Sie 
liefert die Werte 48 bis 57 für die Ziffern 
0 bis 9 und 65 bis 90 für die Großbuch- 
staben A bis Z. Man muß also prüfen, ob 
der Wert > 64 ist (Zeile 41). Ist das der 
Fall, ist 55 zu substrahieren, also aus 
dem Buchstabe A wird 65-55 = 10, aus B 
wird 11 usw. Trifft die Bedingung A > 64 
nicht zu, ist es eine Ziffer, und es wird 
48 subtrahiert. In Zeile 50 wurde ledig- 
lich die Konstante (Basis 2) durch die 
Variable B ersetzt. 

Gewünscht: Hexadezimalzahlen 

Meist trifft man in solchen Routinen auf 
den String „0123456789ABCDEF“ und 
auf viel Mathematik. Entsprechend lang 
und langsam werden die Routinen. 
Rechnet man direkt mit ASCll-Zeichen 
und wendet wieder UND-Masken an, 
wird’s einfacher und schneller. 
Grundüberlegung: Die Dezimalzahl steht 


als 16-Bit-Muster im Arbeitsspeicher. Je- 
weils 4 Bit sind in die Zeichen 0 bis F 
umzuwandeln. Teilen wir erst einmal 
die 16 Bits in zwei Bytes (Zerlegen in 
zwei Bytes wie beschrieben) und dann 
jedes Byte in zwei Halbbytes. 

Das niederwertige Halbbyte erhält man, 
indem man das Byte mit der Maske 
00001 111 UND-verknüpft also in Basic : 
AND 15 (siehe Bild 5. Zeile 100). Mit 
dem höherwertigen Halbbyte ist es nicht 
ganz so einfach. Es wird auch maskiert, 
nämlich mit 1 1 110000 = 240, nur steht 
es danach noch 4 Bit zu weit links, also 
in falscher Wertigkeit. In Assembler 
würde man jetzt mit vier Shift-Befehlen 
das ganze nach rechts rücken, jedoch in 
Basic sind Interpreter/Compiler mit ei- 
nem Shift-Befehl eher die Ausnahme, 
aber dividieren können sie alle. Erin- 
nern wir uns, daß ein Sbift nach rechts 
einer Division durch 2 entspricht, so gilt 
für 4: Dividiere durch 16, womit Zeile 
100 klar ist. 

Die folgenden 4 Zeilen wandeln nur 
noch die numerischen Werte in ASCII- 
Werte um, wobei die Technik aus dem 
Programm in Bild 4 hier umgekehrt wird 
(wer einen Computer besitzt, der ELSE 


10 INPUT"ZAHL"lB$ 

11 INPUT "BÖS IS” :B 
20 L=LEN(BS> I D=0 
10 FDP 1=1 TO L 

40 A=A5Cl MIDI B*. I, 1) j 

41 IFA» 64 THEN A-A-55 « GOTO 30 

42 G*A-48 

50 D«D*A*BUL-I> 

60 NEXTI 

70 PRINTD t GOTO 10 

Bild 4. Umsetzung einer Zahl beliebiger 
Basis in eine Dezimalzahl 


versteht, kann zwei Zeilen sparen). In 
Zeile 150 werden mit Hilfe der CHRS- 
Funktion aus den ASCII-Werten die 
letztlich zu druckenden Zeichen. 

Noch etwas Assembler 

Wie kaum noch zu verheimlichen, ist 
der Autor von Assembler zu Basic ge- 
kommen. Deshalb sei in Bild 6 die Routi- 
ne gezeigt, die den Anstoß zu den Basic- 
Programmen gab. Sie ist in Z80-Assem- 
bler geschrieben aber fast 8080-kompati- 
bel (JR durch JMP ersetzen). Der Autor 
nutzt die Routine, um während der Pro- 
grammausführung Speicher Registerin- 
halte zu testen. Nach jedem ..CALL 
HEX" wird der Inhalt von HL in Hex - 
Darstellung auf dem Schirm angezeig* 

In Basic würde man die Zeilen 20-26 so 
schreiben: 

20 A = A AND 15 

21 IF A < 10 THEN 25 

22 : 

23 A = A+55 

24 GOTO 26 

25 A = A + 48 

26 GOSUB ... 

Wer sagt da noch, daß Assembler 
schwierig sei? 


10 INPUT”DEZ I MALZAHL" ID 
20 B=INT(D/256> : GOSUB 100 
30 PRINT H*l 

40 B=D-B*25E : GOSUB 100 

50 PRINT H* : GOTO 10 

100 L=B AND 15 i H» ' B AND 2401/16 

110 IF H> 9 THEN H=H*55 i GOTO 130 

120 H=H»48 

130 IF L>9 THEN L=L»55 : GOTO 150 
140 L-L+4E 

130 H*»CHR*<H)*CHR*> L) 1 RETURN 

Bild 5. Dezimal/Hexadezimal-Umsetzung 




00001 1 UNTERPROGAHfl 

HE* 




00002 UNHALT 

VON HL 

WIRD AUF 

DEM SCHIRM ANGEZEIGT 



0000 T 




0033 


00004 PRINT 

EDO 

33H 

IUP ANZEIGE BVTE IN AKML 

7FBC 


00005 

URG 

7FBCH 


7FBC 

7C 

0000E HEX 

LD 

A. H 

•HIGHER BVTE MIT 

7FBD 

CDCD7F 

00007 

CALL 

SHIFT 

1 HIGHER NIBBLE 

7FC0 

7C 

00008 

LD 

A. H 

I NOCH’ MAL HIGHER BVTE MIT 

7FC1 

CDD17F 

00009 

CAi_L 

ANZ 

1 LOWER NIBBLE 

7FC4 

70 

00010 

LD 

A. L 

1 LOWER BVTE MIT 

7FC3 

CDCD7F 

0001 1 

CALL 

SHIFT 

1 HIGHER NIBBLE 

7FCS 

7D 

00012 

LD 

A. L 

INOCH'MAL LOWER BVTE 

7FC9 

CDD17F 

00013 

CALL 

ANZ 

1 MIT LOWER NIBBLE 

7FCC 

C9 

00014 

RET 





00015 




7FCD 

IF 

0001b SHIFT 

RRA 


1 SCHIEBE 

7FCE 

IF 

00017 

RRA 


1 HIGHER NIBBLE 

7» CF 

IF 

000 1H 

RRA 


1 4 BIT NACH 

7PD0 

IF 

00019 

RRA 


1 RECHTS 

7FDI 

EF.0F 

00020 ANZ 

AND 

15 

IH1GHER NIBBLE WIRO 0 

7FD3 

FE0A 

00021 

CP 

10 

1 WERT > 10 •> 

7FD5 

3804 

00022 

JR 

C. ZIF 

INEINI ZIFFER 

7FD7 

C637 

00023 

ADD 

A, 55 

! BUCHSTABE 

7FD9 

1802 

00024 

JR 

DISP 

I ZUR ANZEIGE 

7FDB 

C630 

00023 ZIF 

ADD 

A. 48 

1 ZIFFER 

7FDD 

CD3300 

00026 DISP 

CALL 

PRINT 

1 ANZEIGE l CHR IN AKKU 

7FE0 

C9 

00027 

RET 



0000 


00028 

END 



00000 TOTAL errors 




DISP 

7FDD 





ZIF 

7FDB 





ANZ 

7F01 





SHIFT 7FCD 

ucy 7cnr 



Bild 6. Z80-Maschinenprogramm: Anzeige eines 

Mt * fr BL 

PRINT 0033 



Registerinhalts in Hexadezimaldarstellung 
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Stirflnsj-CHatfismatik 

rertaMssmaffasht 

DstsSsnacsnauigüieM 


Handelsübliche Mikrocomputer und die meisten Programmier- 
sprachen erlauben nur Berechnungen mit höchstens rund einem 
Dutzend signifikanter Stellen im Ergebnis. Was danach kommt, 
wird gerundet oder, schlimmer, weggelassen. Der folgende Bei- 
*'ag stellt ein alternatives Rechenverfahren vor, das es erlaubt, 
die Anzahl signifikanter Digits fast beliebig zu erhöhen. 


Die heutigen Basic-Interpreter besitzen 
zumeist eine recht begrenzte Rechenge- 
nauigkeit: In DAI-Basic, im Focal-Dia- 
lekt FCL und in gewissen Pascal-Syste- 
men ist nach sechs signifikanten Stellen 
Schluß, Microsoft-Basic-Dialekte tun’s je 
nach Version mit acht bis sechzehn Er- 
gebnis-Digits. Bild 1 zeigt, wie sich bei- 


1 PEM GENAU IGKE1TSTEST 

2 REM 

3 REM 

4 A * 112,223443366 PRINT CHR* <4>"PR*5 
” LIST PRINT •• “ PRINT “ PRINT " 

" PRINT " TEST3AHL ft ", “SUMME A-l" PRI 

NT ■ " 

3 FOR N * 1 TO 4 GOSUB 6 NEXT PRINT 

: PR IN 

T CHR* <4>"PR#0" END 
6 PRINT ft, ft*lfl-fi/10 RETURN 


TESTZftML ft SUMME ft-1 

1 12233446E-11 1 1222-446£*11 

1 122 23446E-10 1 122::446E»10 

1 122"446E*09 1 1223:446E»Ö9 

112*.:. 446 1122:344' 


Bild 1. Ein Versuch beweist: Bei Zahlen von 
einer Milliarde an aufwärts kommen Com- 
puter ins Lügen und unterschlagen ohne 
Warnung Stellen 


spielsweise eine in Südwestdeutschland 
als Schulcomputer verbreitete Maschine 
benimmt, soll sie zu großen Zahlen eine 
Eins addieren: Die unter dem Microsoft- 
Basic-Dialekt PALSOFT laufende ITT- 
2020 unterschlägt in der Ausgabe solan- 
ge den Zusatzeinser, bis die Testzahl A 
die Milliardengrenze nach unten über- 
schritten hat. Für gewisse Aufgabenstel- 
lungen beispielsweise aus der Moleku- 
larbiologie, wo die statistische Behand- 
lung kleiner Veränderungen großer Zah- 
len von Bedeutung ist, sind derlei rüde 
Verkürzungen der Wahrheit durch den 
Computer schlichtweg untragbar. Ver- 
breitete Methoden der Abhilfe in sol- 
chen Fällen sind das Ausweichen auf 
Assembler-Programmierung oder un- 
handliche Integer-Arrays, die allenfalls 
von einigen wenigen Spezialisten geübt 
gehandhabt werden - beides mit man- 
cherlei Nachteilen behaftet. Gesucht 
wurde deshalb nach einem Verfahren, 
das die Erhöhung der Rechengenauig- 
keit unmittelbar in Basic bringen sollte, 
und zwar ohne Unterschied in so diver- 
gierenden Dialekten wie den bei den 
Maschinen DAI, TRS-80, PET, Apple, 


Stelle MAX»! 
STRING: 

S1 S: 

S 2 $ : 


J 9_ 

1 1 

I I 

1 y| g 

1 ^ 0 


(Summand 1) 
(Summand 2) 

(Übertrags- Kette) 
(Summen-Kette) 


ITT-2020 und Tl-99/4 implementierten 
Versionen. Die Wahl fiel auf eine Art der 
Ziffernverarbeitung über Zeichenketten, 
wie sie als „String-Mathematik" hier 
vorgestellt wird. 

Die Lösung: Fritzchens Schulheft- 
Algorithmus 

String-Mathematik bedeutet: Zahlen 
werden nicht länger rechnerintern im 
üblichen Binär-Format als Mantisse und 
Exponent gespeichert (dies führt zum 
Grundübel der fehlenden Stellen), son- 
dern als ASCII-Zeichenkette. Da die ge- 
nannten Rechner das unmittelbare La- 


1 REM VERFftHRENSPRINZIP 

2 REM 

3 Sl* ■ "112233445366378099“ 

4 S2* =■ "192939495969798999" 

5 S* ■ " SSI > “0“ 

6 FOR N - 18 TO 1 STEP - 1 

7 5V. • VRL < MID* <S1*> N, 1>> ♦ VftL 

< MID* <S2*. N. 1>) ♦ VftL < LEFT* 
<SS*. 1>> 

8 IF SX > 9 THEN SX - SX - 10SS 

*.-!-♦ SS* GOTO 10 

9 SS* - “0“ ♦ SS* 

10 S* - STR* <S ■/.'> ♦ S* 

11 REM ZEILE FUER DIRGNOSE 

12 NEXT 

13 PRINT “ “. PRINT * • PRINT * 

PRINT "ERGEBNIS DER STRING 
ADDITION“ PRINT 

PRINT “ 


14 

PRINT 

"SUMMAND 1 

<S1*> 

■Sl* 

13 

PRINT 

■SUMMAND 2 

<S2*> 

"S2* 

16 

17 

PRINT 

PRINT 

"SUMME 

N N 

<s*> 

■s* • 






19 

mmmmmmmmmmrnmmmmmm " 

END 



ERGEBNIS DER STRINGfiODITION 


SUMMAND 1 

<S1*> 

112232445566778899 

SUMMAND 2 

<S2*> 

192929495969799999 

SUMME 

<St> 

305172941526577898 

s = c=33s:3: = 3a=:aaMBs:rsssrsx3:s:B: = ::= 


Bild 2. Dieses Schema für schriftliche Additionen, vielen Lesern aus der Grundschulzeit 
bestens bekannt, liegt auch der „String-Mathematik“ zugrunde, mit deren Hilfe Computer 
exaktes Rechnen lernen 


Bild 3. Ein erster Vorversuch: Unverkürzte 
Addition über volle 18 Stellen Rechengenau- 
igkeit 
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1 REM DEMONSTRAT I ONSPROGRAMM FUER . STRINGMATHEMATIK' 

2 REM - 

3 REM MRNS-QEORQ JOEPGEN. 9/80 

4 REM INITIALISIEREN 

5 REM 

6 HOME G0SU6 28 PRINT * OPERATION MIT ERHOEHTER GENAUIGKEIT" 

7 PRINT PRINT ” ALS BEISPIEL FUER .STRINGMATHEMATIK'" 

8 PRINT GOSUB 26 PRINT PRINT PRINT 

9 PRINT " ♦♦♦ DIAGNOSE GEWUENSCHT (J/N>? "; 

10 GET A* PRINT A* IF CBS < > "J") AND <AS < > "N”) THEN INVERSE PRINT 

CHRS (7) PRINT * NUR .J' OOER , N' BITTE 1 ": NORMAL PRINT GOTO 
9 

11 DIAGNOSE « < AS « "J“) PRINT PRINT 

12 REM 

13 REM HAUPTSCHLEIFE 

14 REM 

15 GOSUB 20 INPUT ” OPERAND 1 "i SIS PRINT INPUT * OPERAND 2 ".S2S 

PRINT 

16 GOSUB 24: PRINT PRINT “• ERGEBNIS: “SS: PRINT GOTO 15 

17 REM 

16 REM TRENNSTRICH 

19 REM I 

20 FOR N . 1 TO 40 PRINT "»*i : NEXT : PRINT : RETURN 

21 REM 

22 REM STRINGADDITION 

23 REM 

24 MAX = LEN (SIS) : IF LEN (S2S) > MAX THEN MAX - LEN <S2S) 

25 IF LEN (SIS) < MAX THEN SIS « “0" ♦ SIS GOTO 25 

26 IF LEN (S2S) < MAX THEN S2S * "8“ ♦ S2S GOTO 26 

27 PRINT PRINT "« ADDITION ■" 

28 SS - “ “ : SSS * IF DIAGNOSE THEN GOSUB 42 

29 FOR N = MAX TO 1 STEP - 1 

30 SX • VAL < MIDS (SIS, N. 1>> ♦ VAL < MIDS (S2S, N, 1>> ♦ VAL < LEFTS (SS 

S, 1>> 

31 IF SX > 9 THEN SX - SX - 10 SSS - "1" ♦ SSS GOTO 33 

32 SSS * “0“ * SSS 

33 SS - STRS (S •/.) * SS 

34 IF DIAGNOSE THEN 00SU8 46 

35 NEXT 

36 IF LEFTS (SSS, 1) • "1“ THEN SS • "1" ♦ SS: GOTO 38 

37 SS - ' " ♦ SS 

38 RETURN 

39 REM 

40 RCM DIAGNOSE EINS 

41 REM 

42 PRINT * ♦♦♦ DIAGNOSE:" PRINT " " PRINT PRINT * SIS: " 

SU PRINT “ S2S “S2S PRINT " MAX "MAX: PRINT : RETURN 

43 REM 

44 REM DIAGNOSE ZWEI 

45 REM 

46 PRINT PRINT “ STELLE N: “N PRINT " SS "SS PRINT " SSS "SSS PRINT 

RETURN 

47 REM 


Bild 6. Ein voll praxislsugliches Betriebsprogramm für Additionen mit über 250 Stellen 
Genauigkeit, eingebettet in Test- und Diagnoserahmen 


] 

} 

1 REM VERFAHPENSPR I NZ I P 

2 REM 

3 SIS » “123“ 

4 S2S ■ “192" 

5 SS * ""SSS - "0":FIRST • 1 

6 FOR N - 3 TO 1 STEP - 1 

7 SX • VAL ( MIDS (S1S.N, 1>> ♦ VAL 

( MIDS CS2S.N, 1>> ♦ VAL < LEFTS 
(SSS. 1>) 

8 IF SX > 9 THEN SX * SX - 10SS 

$ * "1“ ♦ SSS GOTO 18 

9 SSS * "6“ ♦ SSS 


10 

S* = STR* CSX) ♦ S* 


11 

G0SU6 21 


12 

NEXT 


13 

PRINT “ " PRINT " *: PRINT “ 


PRINT "ERGEBNIS DER 

STRINO 


ADDITION" PRINT 








14 

PRINT "SUMMRND 1 <S1$> 

"Sl* 

15 

PRINT "SUMMAND 2 (S2*> 

"S2* 

16 

PRINT "SUMME <S$> 

"S* 

17 

PRINT " " 


18 

PRINT “UEBERTPAG (SS*) 

“SS* 




26 

END 


21 

IF FIRST THEN PRINT " 

■ PRIK 


"DIAGNOSE": PRINT 



PRINT 11 “ FIRST - 

0 

22 

PRINT " " 


23 

PRINT “STELLENNUMMER N 

"N 

24 

PRINT "STELLENWERT SX 

"SX 

25 

PRINT “ SUMMENSTRING S$ 

■s* 

26 

PRINT • M 


27 

PRINT “UE6ERTRAG (SS*> 

"SS* 

28 

PRINT « 



". RETURN 


Bild 4. Diagnose-Routinen zwingen den 
Rechner, zu zeigen, auf welche Weise er 
„String-Mathematik“ betreibt 


I 

1 

DIAGNOSE 

STELLENNUMMER N 
STELLENWERT SX : 
SUMMENSTRINO St 

UEBERTRRG (SSt) : 

3 

5 

9 

00 

STELLENNUMMER N : 

2 

STELLENWERT SX . 

1 

SUMMENSTRING S* : 

15 

UEBERTRAG (SS*) : 

100 

STELLENNUMMER N 

i 

STELLENWERT SX : 

3 

SUMMENSTRING S* : 

315 

UEBERTRAG (SS*> : 

0100 


ERGEBNIS DER STRINGADDITION 

SUMMAND 1 (Sl*> : 

123 

SUMMAND 2 (S2*> 

192 

SUMME CS«> 

315 

UEBERTRAG (SS«> 

0100 



Bild 5. Die Druckausgabe verrat, wie sich der 
als Zeiger dienende Schleifenzähler beim 
Abtasten der Operandenstrings verändert 
und hierbei Ergehnis-String und (Jbertrags- 
Slring anwachsen 


den eines solchen Strings von der Tasta- 
tur her und die unmittelbare Ausgabe 
des Strings auf Schirm oder Drucker er- 
lauben, können wir beim Addieren gro- 
ßer Zahlen in Stringform nach „Fritz- 
chens Schulheft-Algorithmus“ verfah- 
ren, nach der Art, wie üblicherweise 
schriftlich addiert wird. Man schreibt 
(Bild 2) die beiden Summanden unter- 
einander, läßt Raum für eine Übertrags- 
Zeile und sieht dann die Ergebnis-Zeile 
vor. In die äußerste rechte Stelle der 
Übertrags-Zeile kommt von vornherein 
eine Null, da es ja keine vorangegangene 
Rechnung und mithin auch keinen 
Übertrag aus dieser Rechnung gibt. So- 
dann addieren wir, mit der Stelle 1 be- 
ginnend und nach links fortschreitend, 
jeweils die Summanden und den Über- 
trag. Treten bei diesem Zusainmenzäh- 
len selbst wieder Überträge auf, so wer- 


den sie in der Folgestelle notiert. Bild j 
zeigt ein erstes kleines Basic-Programm 
und seinen Ergebnisausdruck: Die feh- 
lerfreie Addition zweier achtzehnstelli- 
ger Zahlen ist auf Anhieb gelungen. Um 
deutlich zu machen, daß im Rechner 
justament das Gleiche geschieht wie in 
Fritzchens Rechenheft, erweitern wir 
das Programm, indem wir eine Diagno- 
se-Ausgabe einfügen (Bild 4) - der Aus- 
druck (Bild 5) zeigt, wie sich der Sum- 
men-String und der Übertrags-String 
füllen. 

Ein allgemeines Additionsverfahren 

So überzeugend die Demonstration der 
grundsätzlichen Wirksamkeit von 
String-Mathematik bis hierhin auch aus- 
gefallen sein mag. unser Vorführ-Bei- 
spiel krankt an zwei Mängeln, die es 
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unbrauchbar für die meisten praktischen 
Einsatzfälle machen: Beide Summanden 
mußten die gleiche Stellenzahl haben, 
und diese gleiche Stellenzahl steht als 
Programm-Konstante in Zeile 6 unver- 
rückbar fest! Um unserer String-Addi- 
tion zur Allgemeingültigkeit zu verhel- 
fen, müssen wir diese Mängel ausmer- 
zen - und wie das geschieht, zeigt ein 
neues Programm-Listing (Bild 6). In den 
Zeilen 6 bis 11 meldet sich das Pro- 
gramm auf dem Schirm und gewinnt 
eine Boole sche Variable DIAGNOSE, 
die darüber entscheidet, ob später mit 
Hilfe der Subroutinen DIAGNOSE 1 und 
DIAGNOSE 2 die Stringveränderungen 
mitgeteilt werden. Zeile 24 lädt die Va- 
riable MAX mit der Stellenzahl des län- 
geren der beiden Summanden-Strings. 
ln den zwei folgenden Zeilen wird, so- 
fern einer der beiden Summanden- 
Strings weniger als MAX Stellen hat, die 
betreffende Zeichenkette durch vorange- 
stellte Nullen auf MAX Stellen aufge- 
füllt. Nun können wir uns erneut des 
Schulheft-Algorithmus bedienen. Bild 7 
zeigt, daß unsere Stringaddition damit 
jenen Grad an Freiraum zu meistern 
weiß, der ihr Praxis-Weihen verleiht. 


■ HBWiia»iliaaaaataStasaHHMHnH 

OPERATION MIT ERHOEHTER GENAUIGKEIT 
ALS BEISPIEL FUER .STRINGMATHEMATIK' 

tsS*ss:x=a=3=aaa=z=r=aa3B8=axaa>eeaaaa 

♦♦♦ DIAGNOSE GEMUENSCHT <JXN>? N 


OPERAND 1 111222333444353666777888999 

OPERAND 2 1122:3443560778899 

= SUBTRAKTION - 

• ERGEBNIS 111222233332322221211118188 


OPERAND 1 123456789 

OPERAND 2 998877665544332211000000080 

= SUBTRAKTION * 

* ERGEBNIS -998877665544332210876542211 


Bild 7. Die Fesseln sind gefallen: Keine Be- 
schränkungen für den Deflnitionsbereich des 
Algorithmus mehr 


Subtraktion - 

nicht weniger universell 

Kommen wir zur zweiten Grundrechen- 
art. der Subtraktion. Hier können wir 
uns weitgehend des gleichen Lösungs- 
weges bedienen, der auch bei String- 
Addition weiterhalf. Es sind freilich 
einige Änderungen vorzunehmen. Sl$ 
steht hier für Minuend, S2$ für Subtra- 
hend, S$ ist die gewonnene Differenz. 

Bei der Stellenbearbeitung und der 
Übertrags-Behandlung folgen wir nun 
den Subtraktionsgesetzen - und: Eine 
weitere Boole sche Variable kommt ins 
Spiel, sie heißt MINUS und zeigt an. daß 
ein negatives Ergebnis eintreten wird. Ist 
MINUS wahr, dann müssen wir Subtra- 
hend und Minuend vertauschen und un- 
seren Ergebnis-String statt mit einer füh- 
renden Leerstelle (SPACE) mit einem 
Minus-Zeichen versehen. Die komplette 
Subroutine Stringsubtraktion findet sich 
in Bild 8, einen Probelauf mit hinwie- 
derum überzeugendem Ergebnis bringt 
Bild 9. An dieser Stelle dient es sicher- 
lich der Vertiefung, noch einmal mit Hil- 
fe unserer Diagnose gezielt zu verfolgen, 
was geschieht, wenn unser Computer 
Strings subtrahiert - um Raum zu spa- 
ren, nehmen wir diesmal Operanden mit 
geringer Stellenzahl, die man in der Pra- 
xis sicherlich „stringfrei" programmiert 
(Bild 10). Da Operand 1 kleiner ist als 
Operand 2. wurde die Boolesche Varia- 
ble MINUS auf „Wahr“ gesetzt. Wir er- 
kennen dies daraus, daß die Inhalte von 
Sl$ und S$ zu Diagnose-Beginn bereits 
getauscht erscheinen. MAX ist richtig 
auf drei gesetzt, der Rechner beginnt 
„rechtsaußen" bei N = MAX. Erstes Er- 
gebnis 7, kein Übertrag - ebenfalls kein 
Überlauf bei Behandlung der Stellen 2 
und 1. Im Ergebnis-Druck erscheint ein 
Minus-Zeichen, da MINUS gesetzt war. 


Höhere Rechenarten: 

Ebenfalls „string-kompatibel“ 

Für den geforderten Entwicklungs- 
zweck, zu dessen Realisierung „String- 
mathematik" geschaffen wurde, waren 
Subtraktion und Addition gefordert, 
doch lassen sich nach den hier gezeigten 
Algorithmen unschwer auch höhere 
Rechenarten in Zeichenketten-Technik 
verwirklichen: Bei der Multiplikation 
wird man, ebenfalls in Schleife, zeichen- 
weise multiplizieren und die so gewon- 
nenen Teilprodukte schließlich stellen- 
richtig addieren - unter Benutzung von 
STRING-ADDITION ein Leichtes - und 
sinngemäßes gilt für die Division: Es 
geht allein darum, die vom schriftlichen 
Rechnen her gewohnten Lösungswege 
wohlstrukturiert in gleicher Weise um- 
zusetzen. wie das für die ersten beiden 
Grundrechenarten vorgeführt wurde. 
Übrigens: Auch für schriftliches Wurzel- 
ziehen existiert ein Algorithmus, der 
sich unschwer in String-Operationen 
umsetzen läßt - allerdings, Fälle, in de- 
nen Wurzeln höherer Genauigkeit ver- 
langt werden, dürften wohl äußerst sel- 
ten sein. 


Dezimalbrüche - kein Problem 
für „Stringmathematik“ 

Eher von praktischem Wert ist eine Er- 
weiterung der String-Mathematik auf 
den Bereich der Dezimalzahlen mit 
Nachkonuna-Stellen. Auch dies ist mög- 
lich und bedarf nur zweier Erweiterun- 
gen: DieOperanden-Strings müssen 
hier, wie üblich, auf gleiche Vorkomma- 
Stellenzahl und danach noch zusätzlich 
auf gleiche Nachkomma-Stellenzahl ge- 
bracht werden; auch hier durch Auffül- 
len mit Nullen. Sodann ist in die eigent- 
liche Arbeitsschleife eine Prüfung auf 
Komma einzufügen und beim Vorliegen 
dieser Bedingung ein Sprung zum korre- 
spondierenden NEXT-Statement zu pro- 
grammieren. Vorgeschlagener Weg: 

IF MID$(Sl$,N,l) = CHR$ (44) GOTO ... 
Die gleichlautend formulierte Prüfung 
verrichtet auch beim anfänglichen kom- 
ma-bündigen Formatieren beider Ope- 
randenstrings gute Dienste. Des weiteren 
wird man bei der Benutzung von String- 
Mathematik gut daran tun, solide Ord- 
nung bei der String-Übergabe zwischen 
dem Hauptprogramm und diversen Sub- 
routinen zu halten und dabei feste Kon- 
ventionen zu beachten, wie etwa die, 
daß die Bezeichnung der Operanden 
dem Muster Sl$, S2$, S3$... folgt und 
Hauptergebnisse in S$, Nebenergebnisse 
in SS$ zurückkommen. 


21 

PEM 


22 

REM STP INGSUBTRAKTION 


23 

REM 


24 

MftX » LEN <S1#> . IF LEN <S2«> > MRX THEN MAX - LEN <S2«> 

25 

IF LEN «,S1*> < MAX THEN Sl* » "0" 

♦ Sl* GOTO 25 

26 

IF LEN <S2*> < MAX THEN S2S * “0" 

♦ S2* GOTO 26 

27 

PRINT PRINT SUBTRAKTION MINUSFLAG * 0: IF Sl« < S2« THEN SS« • 


Sl* Sl* « S2* S2* = SS* MINUSFLAG 

» 1 

28 

S* « ““SS* « IF DIAGNOSE THEN 

GOSUB 42 

29 

FOP N - MAX TO 1 STEP - 1 


38 

SV. * VAL < MIO« <S1«,N, 1>> - VAL 

t, 1>) 

< MID* <S2*, N, 1>> - VAL < LEFT* <SS 

21 

IF S X < 0 THEN S V. - SV. ♦ 10 SS* - 

"1“ ♦ SS* GOTO 33 

32 

SS* - “0“ ♦ SS* 


33 

s* * stp* <.sv.> * s* 


24 

IF DIAGNOSE THEN GOSUB 46 


33 

NEXT IF MINUSFLAG THEN S* • 

♦ S«: GOTO 38 j 

36 

IF LEFT* <SS*. 1) * “1“ THEN S* ■ 

-1" ♦ S« GOTO 38 

37 

Cf » '• » ♦ s* 

% 

28 

RETURN 


39 

REM 



Bild 8. Dieses Unterprogramm, bestimmt für das Rahmenprogramm aus Bild 6, handhabt 
mühelos Stringsubtraktionen beliebiger Genauigkeit 
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Grenzen und 

Verbesserungsmöglichkeiten 

Die Anzahl der Stellen, die Stringmathe- 
matik zu handhaben weiß, wird allein 
durch den verwendeten Interpreter oder 
Compiler begrenzt, doch erlauben selbst 
frühe Versionen von Anfängermaschi- 
nen wie die ersten PETs Ketten mit 255 
Zeichen. Hier setzt nicht die Firmware 
Schranken, sondern bestenfalls die Re- 
chengeschwindigkeit, die annähernd 
linear mit der Länge der Kette sinkt. 


OPERATION «IT ERHOEHTER GENHUIGKE IT 
FK.S BEISPIEL EUER . STRINGMFITHEMflTIK 


DIAGNOSE GEWUENSCHT <J/N>? N 


I OPERAND 1 110220238440550660770880990 
I r RAND 2: 990880770660550440330220110 
w . D I T I ON • 

|>TPGEBN!S 1101101101101101101101101100 


OPERAND 1: 112221233122412351236123712 

OPERAND 2 : 987654221 

» ADDITION * 

* ERGEBNIS 112321233123412352223778033 


Bild 9. In weniger als einer Sekunde gelöst: 
Die Aufgabe, eine achtzehnstellige Zahl von 
einer Zahl mit 27 Stellen zu subtrahieren 


OPERATION MIT ERHOEHTER GENAUIGKEIT 
ALS BEISPIEL FUER . STRINGMATHEMATIK' 


♦♦♦ DIAGNOSE GEWUENSCHT <J/N>? J 


OPERAND 1 12 

OPERAND 2 999 

■ SUBTRAKTION ■ 
♦♦♦ DIAGNOSE: 


Sl* 999 
| S2$ 012 

X 3 

^«'ELLE N: 3 
S» 7 
SS* 0 
STELLE N: 2 
SS 87 
SSS 00 
STELLE N 1 
SS 987 
SSS 800 
• ERGEBNIS -987 


Bild 10. Die Meldungen der Überwachungs- 
routine DIAGNOSE zeigen, wie der Rechner 
bei der String-Subtraktion Schritt um 
Schritt, Stelle um Stelle vorgeht 


Stringverarbtiitung kostet Rechenzeit, 
freilich weniger, als erwartet: Für die 
(etwas lebensferne) Subtraktion zweier 
Zahlen mit je hundert Stellen nach dem 
Programm aus Bild 6/Bild 8 benötigte 
ein ITT-2020 etwa 5 Sekunden - die Zeit 
zur Ergebnisausgabe schon inbegriffen. 
Eine gewisse Schwäche des vorgestell- 
ten Verfahrens soll nicht verschwiegen 


werden: Mehr-Operanden-Rechnungen, 
bei denen Überläufe mit Werten größer 
Eins Vorkommen, sind mit dem be- 
schriebenen Lösungsweg nicht zu mei- 
stern, dies würde gründliche Änderun- 
gen des Rechenablaufs erforderlich ma- 
chen. So wird man denn gegebenfalls 
Listenadditionen und ähnliche Ketten- 
rechnungen vom Programm her in Zwei- 
Operanden-Operationen aufzulösen 
haben. 


I ? 
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Die verwendeten String-Operatoren 

AS = CHRS (x) Der Zeichenkette AS wird das Zeichen zugewiesen, dessen 

ASCII-Code durch die dezimale Zahl x beschrieben ist. 

AS = ”123" Die Zeichenkette AS wird mit den ASCII-Zeichen der Ziffern 1, 

2 und 3 geladen. 

AS = Die Zeichenkette AS wird gelöscht (.. Leerstring"). 

S% = VAL (AS) Der Integer-Variablen S% wird jener Wert zugeordnet, den die 

ASCII-Zeichen in AS beschreiben. 

SS = STRS (S%) Aus der Zahl in der Variablen S% wird das ASCII-Zeichen oder 

werden die ASCII-Zeichen gebildet, die diese Zahl be- 
schreiben. 

SSS = ”0” + SSS Am Beginn der Kette SSS wird das ASCII-Zeichen für ”0" 

eingefügt. 

AS = RIGHTS (B$,3) AS wird mit den letzten drei Zeichen der Kette BS geladen. 

AS = LEFTS (B$,5) AS wird mit den ersten fünf Zeichen von BS geladen. 

AS = MIDS (BS.N.l) AS wird mit einem Zeichen aus BS geladen - nämlich mit dem, 

das an der Stelle N in der Kette steht. 

A = LEN (AS) Der Variablen A wird als neuer Wert die Anzahl der Zeichen in 

der Kette AS zugewiesen. 

Die verwendeten String-Operatoren sind u. a. kompatibel mit den auf Maschinen folgender 

Firmen verwendeten Basic-Dialekten: Apple, BASF, Commodore, Siemens. Standard-Elektrik 

Lorenz, Tandy u. a. Teilkompatibilität: Texas Instruments u. a. Nicht kompatibel z. B.: Hewlett- 

Packard. General Electric Mark II und III, ältere Siemens- und Telefunken-Diatekte. 
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